home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / GremlinUnpacker.AMOS / GremlinUnpacker.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1997-07-06  |  550 b   |  27 lines

  1. F=1
  2.  Extension_8_0456 "dh1:lotus1.bin",9
  3. Gosub DIT
  4.  Extension_8_0456 "dh1:lotus2.bin",9
  5. Gosub DIT
  6. End 
  7. DIT:
  8. ST=Start(9) : LE=Length(9)
  9. AD=ST
  10. Reserve As Work 11,300000
  11. Do 
  12.   AD=Hunt(AD To ST+LE,"SF")
  13.   Exit If AD=0
  14.   UN=Leek(AD+2) : PA=Leek(AD+6)
  15.   If UN>0 and UN<$100000 and PA>0 and PA<$100000
  16.     Print Hex$(AD-ST,8);" ";UN;" ";PA
  17.     Areg(0)=AD : Areg(1)=Start(11)
  18.     Call Start(10)
  19.     Bsave "ram:file"+ Extension_8_0EB8(F,3),Start(11) To Start(11)+UN
  20.     Inc F
  21.     Add AD,PA
  22.   Else 
  23. '    Print Hex$(AD-ST,8) 
  24.     Add AD,2
  25.   End If 
  26. Loop 
  27. Return